Zistenie statusu LPT

Otázka od: Roman Newman

25. 10. 2002 8:03

Zdrvym Vsetkych

Neviete mi niekto poradit ci existuje funkcia ktora vracia status LPT portu
otvoreneho
pomocou CREATEFILE nieco ako pri COM -GetCommModemStatus-, resp.
ci sa da v D5 otvorit LPT port tak aby som vedel kontrolovat ci ma tlaciaren
papier.

Vdaka.

Roman Newman

Odpovedá: bleak

26. 10. 2002 9:42

pomoci nize uvedenych funkci zjistis, jestli je tiskarna pripravena pro
tisk, testovano na W9X.
bleak

LPT1=$378;
LPT2=$278;
CheckPrinterStatus(LPT1);

function PortRead(Addr:Word) : Byte;
asm
  MOV DX,AX
  IN AL,DX
end;

function CheckPrinterStatus(indPort:WORD): Boolean;
var
  byte3:Byte;
begin
  byte3:=PortRead(indPort+1);
  if ((byte3 and 128)=0) then begin
// ShowMessage('printer not ready'+IntToStr(byte3));
    result:=false;
  end else begin
// ShowMessage('printer ready'+IntToStr(byte3));
    result:= true;
  end;
end;

----- Original Message -----
From: "Roman Newman" <r.newman@zmail.sk>
To: <delphi-l@clexpert.cz>
Sent: Friday, October 25, 2002 7:55 AM
Subject: Zistenie statusu LPT

> Zdrvym Vsetkych
>
> Neviete mi niekto poradit ci existuje funkcia ktora vracia status LPT
portu
> otvoreneho
> pomocou CREATEFILE nieco ako pri COM -GetCommModemStatus-, resp.
> ci sa da v D5 otvorit LPT port tak aby som vedel kontrolovat ci ma
tlaciaren
> papier.
>
> Vdaka.
>
> Roman Newman
>
>